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1.  INTRODUCTION 


The  main  purpose  of  GRIDPACK  Is  to  supply  the  general  Fortran 
programmer  with  convenient  and  fully  efficient  facilities  for  handling 
two-dimensional  grids  and  for  communicating  grid  routlries  to  other 
programmers.  The  user  of  this  software  can*  within  his  usual  Fortran 
code  and  by  means  of  simple  macro-statements  (or  simple  calls  to 
GRIDPACK  routines),  perform  a  variety  of  grid  operations,  such  as: 

-  Create  the  logical  structure  (set  of  pointers)  for  a  grid  by 
specifying  Its  domain  (or  boundary  curves),  mesheslzes  and  ordering. 

-  Create  similar  structures  for  boundary  grids  (the  intersections 

6,f  any  given  boundary  curves  with  given  gridlines).  Such  structures 
can  In  fact  be  used  for  treating  any  other  curves  cutting  through  the 
grid,  such  as  material  Interfaces  and  traced  discontinuities  (shocks, 
wakes,  etc). 

-  Create  new  grids  from  exlsltlng  ones  by  various  operations  such  as 
unions.  Intersection,  transposition  (changing  row  ordering  Into  column 
ordering),  coarsening  and  refinement;  or  create  a  new  grid  which  Is 
the  "Inner"  part  of  a  given  grid  (containing  all  grldpolnts  whose  all 
neighbors  with  respect  to  a  given  templet  are  also  grldpolnts),  or 
Its  "outer"  part  (the  grid  without  Its  Inner  part). 

-  Define  templets  (neighborhoods  of  grldpolnts). 

-  Allocate  storage  for  grid  functions.  Including  boundary-grid  functions. 
The  resulting  storage  Is  fully  efficient  and  flexible:  the  amount 

of  pointers  Is  small  compared  to  the  amount  of  real  numberlcal  data, 
but  still  allow  grid  changes  costing  small  CPU  times  compared  to  the 
CPU  times  of  numerical  processes  over  the  grids. 


ft 


rr 


Delete  any  of  the  above  grids  or  storage  allocations.  Garbage* 
collectlon  routines  ensure  deletion  of  holes  In  the  data  structure 
as  soon  as  their  total  size  becomes  significant. 

Introduce  numerical  values,  specified  as  Fortran  functions,  into 
the  grid  functions. 

Add,  subtract  or  do  any  other  arithmetic  with  grid  functions. 
Interpolate  from  a  grid  function  (or  a  boundary  grid  function)  on 
a  coarser  grid  to  one  on  a  finer  grid,  with  any  desired  order  of 
Interpolation. 

Transfer  Information  between  the  Interior  grid  and  the  corresponding 
boundary  grid. 

Sweep  conveniently  over  grids,  or  parts  of  grids,  or  simultaneously 
over  several  grids,  by  various  means.  Including  various  DO-lIke 
statements  or  calls  to  KEY  routines  which  set  up  convenient- to-use 
arrays  (see  Fig.  1).  The  resulting  sweeps  are  fully  efficient,  with 
single-indexed  DO  loops  performing  the  sweeps  over  the  Inner  strings. 
Inside  the  DO-llke  statements,  grid  functions  can  be  programmed  as 
If  they  were  rectangular  arrays  and  efficient  automatic  branching  Is 
available  for  separate  treatment  at  Irregular  points  (grldpolnts  some 
of  whose  neighbors,  by  a  given  templet,  are  not  In  the  grid). 

Program,  once  for  all  grids  and  all  programs,  various  tasks,  such  as 
various  difference  operators  near  boundaries  Involving  both  boundary 
and  Interior  data,  relaxation  of  general  types  of  Interior  finite 
difference  equations,  relaxation  of  boundary  conditions  (Independently 
or  together  with  the  Interior  relaxation),  etc. 

Communl cation  between  curved  grids  (used  locally,  along  boundaries  or 
Interfaces  or  discontinuities.  In  a  multi -grid  framework)  and  Cartesian 
grids.  This  feature  Is  still  under  development. 


-  Display  grids,  grid  functions,  boundary  shapes,  templets,  etc., 
showing  also  their  relative  geometric  positions. 

More  Important  perhaps  than  any  one  of  these  specific  operations 
Is  the  fact  that  the  GRIDPACK  software  offers  a  general  framework  for 
communicating  grid  programs.  Any  user  of  this  software  can  program 
once  for  all  various  grid  operations,  that  can  then  be  reused  for  any 
other  grid  In  his  program,  or  In  any  other  program  using  this  software. 
Moreover,  GRIDPACK  routines  can  even  be  used  by  programs  which  do  not 

i 

employ  neither  GRIDPACK  nor  Its  data  structure,  provided  they  Incorporate 
some  simple  Interface  routines  (the  KEY  routines;  see  Fig.  1,  and 
Sec.  4.3).  Enormous  programming  repetition  can  thus  be  saved,  and  high 
degree  of  portability  gained. 

To  obtain  full  portability,  GRIDPACK  is  entirely  written  In  Fortran 
and  as  a  Fortran  extension.  That  Is,  the  basic  part  of  GRIDPACK  Is  a 
collection  of  Fortran  routines  which  can  serve  any  Fortran  prograiq. 

In  addition,  a  special  collection  of  macro-statements,  called  Grid 
Language  (GL),  has  been  developed,  which  can  much  simplify  various 
programing  tasks.  These  macro-statements  can  be  used  within  a  usual 
Fortran  code:  They  are  expanded  into  conventional  Fortran  statements, 
including  calls  to  GRIDPACK  routines,  by  a  special  preprocessor  yclept 
PREPACK.  The  preprocessor  itself  is  written  in  Fortran,  thus  maintaining 
the  full  portability  of  the  system. 

The  development  of  GRIDPACK  is  of  particular  importance  for  the 
evolving  technology  of  multi-grid  programing.  Multi  grid  techniques 
(or,  more  generally,  Multi-Level  Adaptive  Techniques  -  MLAT)  are  already 
used  quite  extensively  as  fast  (In  fact,  the  fastest)  solvers  for 
discretized  partial  differential  equations  of  general  types  on  general 
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domains.  They  can  also  be  used  for  many  other  purposes,  such  as  the 
flexible  creation  of  locally  refined  discretization  and  local  coordinate 
transformations,  all  Integrated  Into  the  fast-solvers.  (See,  for  example 
[8]  for  a  brief  discussion  of  multi-level  capabilities,  potential  and 
research,  and  [7]  for  a  more  complete  introduction  and  survey  of  recent 
developments.  The  geometrical  capabilities  of  local  refinement  and 
coordinate  transformation  are  described  In  [6,  Sec.  9],  as  well  as  In 
previous  publications  [2],  [3],  [4].)  All  multigrid  algorithms,  and 
in  particular  those  with  highly  developed  geometrical  capabilities,  are 
based  on  standard  grid  operations,  of  the  types  mentioned  above,  which 
are  used  time  and  again,  for  different  grids  in  the  same  program  and  In 
many  different  multigrid  programs.  Thus,  the  GRIDPACK  system  may  very 
much  facilitate  programming  in  this  field,  encourage  the  use  of  Its  full 
potential,  and  promote  portability,  communication  and  cooperation. 

Some  multi  grid  algorithms  are  indeed  provided  together  with  GRIDPACK 
(see  Sec.  4.7).  A  collection  of  other  multigrid  programs  comes  on  the 
same  magnetic  tape,  called  MUGTAPE  (multi-arid  tape)  on  which  GRIDPACK 
is  distributed.  The  detailed  description  of  GRIDPACK  [1]  appears  as 
another  file  on  that  tape.  The  tape  also  Includes  MUGPACK,  a  precursor 
of  GRIDPACK  that  can  be  used  both  for  learning  the  programming  techniques 
and  as  a  special-purpose  program  for  the  multigrid  solution  of  the  5-point 
Poisson  equation  on  a  general  domain.  Still  much  simpler  programs,  for 
rectangular  domains,  are  also  included  on  MUGTAPE.  Some  of  them  are  very 
short  and  very  suitable  for  first  acquaintance  with  multigrid  techniques. 

A  new  version  of  MUGTAPE,  including  the  completely  revised  version 
of  GRIDPACK  described  in  this  article,  will  hopefully  be  released  by  the 
end  of  1983.  It  will  be  available  from  the  Department  of  Appled  Mathe¬ 
matics,  Weizman  Institute  of  Science,  Rehovot,  Israel. 


The  first  description  of  GRIDPACK  appeared  as  Section  4  In  [3]  and 
a  complete  description  of  Its  first  phase  was  given  In  [5].  In  addition 
to  the  present  authors,  several  routines  were  contributed  by  Fred  Gustavson 
and  Alan  Goodman  (see  Sec.  4.1),  some  boundary-treatment  routines  are 
modified  ELLPACK  routines  [9],  and  some  Interpolation  routines  were  con¬ 
tributed  by  Markus  von  Cube  (see  Sec.  4.3).  The  sponsors  of  this  project. 
In  addition  to  the  Welzmann  Institute  of  Science,  are  the  United  States 
Army,  through  its  European  Research  Office  under  contract 
DAJA37-79-C-0504,  and  the  Gesellschaft  f(lr  Mathematlk  und  Datenverarbeltung 
(GMD)  in  St.  Augustin,  FRG,  through  Its  Instltut  f Ur  Mathematics  (IMA), 
where  one  of  the  authors  (Ophir)  worked  for  two  years.  The  Interest, 
assistance  and  encouragement  of  the  entire  GMD-IMA  group  Is  especially 
acknowledged. 


2.  DEFINITIONS 


The  following  terms  are  used  throughout  GRIDPACK: 

The  lattice  with  origin  (Xg.yg)  and  meshsizes  (hx»h^)  In  the 
(x,y)  plane  Is  the  set: 

L(x0,yQ;hx,hy)  *  {(x^)  |  x1«xQ+1hx,  yj'y0+jhyi  Integers). 

A  uniform  grid G  *  G(D;xQ,yQ*,hx,hy)  Is  the  Intersection  of  the  domain 
D  and  the  lattice  L(xQtyQ;hx,h^).  A  uniform  eubgrid  G'»  of  grid  G,  Is 
a  uniform  grid  defined  on  a  subdomain  D'  of  the  domain  D,  with  the  same 
lattice.  They  are  formally  two  different  grids,  but  they  may  share  functions 
(see  routine  POINTO  In  Sec.  4.2),  In  which  case  G  Is  called  the  parent  of  G'. 

The  column  j  of  grid  G  defined  above  Is  the  set  of  grldpolnts; 

{(x,y)  |  y=y0+jh;  (x,y)  Is  In  G). 

The  row  1  of  grid  G  Is  the  set  of  grldpolnts: 

{(x,y)  |  x=xQ+1h,  (x,y)  Is  In  G}. 

A  grid-line  Is  a  grid  column  or  a  grid  row.  A  grid-line  Is  composed  of 
strings.  A  point  string  is  a  sequence  of  consecutive  gridpoints  In  a  grid 
column  [vertical  string)  of  In  a  grid  row  ( horizontal  string).  The 
Internal  GRIDPACK  representation  of  any  uniform  grid  is  organized  in  terms 
of  either  vertical  strings  or  horizontal  ones.  In  the  first  case  the  grid 
is  said  to  be  vertical  or  in  column  construction  order,  in  the  latter  it  is 
horizontal  or  in  row  construction  order. 

A  column  string  is  a  sequence  of  consecutive  columns.  A  row  string 
is  a  sequence  of  consecutive  rows.  For  brevity,  the  term  set  is  used  in 
GRIDPACK  for  column  string  (in  case  of  vertical  grids),  or  for  row  string 
(In  horizontal  grids).  See  Fig.  2.  A  single-string  grid  is  a  uniform  grid 
with  only  one  string  per  line  and  only  one  set.  A  multi-string  grid  is 
any  uniform  grid  which  is  not  single-string. 


The  following  terms  are  used  by  GRIDPACK  In  treating  boundaries  of 
two-dimensional  domains. 

A  continuous  piece  P  In  the  (x,y)  plane  Is  any  set  of  the  form: 

P  -  P(X,Y,tB,tE)  «  {(x.y)  |  x  -  X(t),  y  «  Y(t),  tB<t<tE}. 

The  piece  end-points  are  the  points 

(*(t8),Y(tB»  and  (X(tE),  Y(tE)). 

A  continuous  curve  C  Is  a  union  P^  of  consecutive  continuous 

pieces  Pj*,  l.e., 

Pi  -  P(X1 »Yi ,tB,  tE),  X1(t^)  -  Xi-1(t|_1) 

Y1(tl)  *  Yl-l(tl-l)»  (i  “  1 . ">  • 

The  curve  Is  called  closed  If 

V‘E)  ■  X,(t“)  and  Y„(tE)  -  Y,(t8), 

otherwise  the  curve  Is  called  open. 

A  boundary  B  Is  a  union  of  continuous  curves  C^.  Sometimes 

there  may  be  several  boundaries  In  a  program.  Each  boundary  Is  therefore 

given  a  number,  the  boundary  number,  which  should  be  distinguished  from 

» 

the  grid  number  of  the  corresponding  boundary- grid.  A  boundary  is  called 
open  If  at  least  one  of  its  curves  is  open.  The  boundary  end-points 
are  the  end-points  of  the  boundary  pieces. 

A  boundary-grid  BG  *  BG(B;x0,y0',hx,hy)  is  the  intersection  of  the 
boundary  B  with  the  lines  In  the  lattice  L(xQ,y0;hx,hy) ,  together  with 
the  set  of  boundary  end-points.  All  these  points  are  called  boundary-grid 
points.  A  discrete  piece,  or  briefly  a  piece,  is  the  sequence  of  boundary 
grid- points  on  a  given  continuous  piece,  ordered  by  an  ascending  order  of 


the  piece  parameter  (t).  A  discrete  curve ,  or  briefly  a  curve ,  Is  the 
sequence  of  discrete  pieces  corresponding  to  the  continuous  pieces  of  a 
given  continuous  curve. 

A  grid  Is  either  a  uniform  grid  (or  uniform  subgrid}  or  a  boundary- 
grid.  In  any  given  program  any  nuriber  of  such  grids  may  be  defined;  each 
Is  given  a  unique  number  called  the  grid  (ordinal)  number.  Me  briefly  say 
"grid  n"  Instead  of  "the  grid  whose  number  Is  n".  When  no  confusion  may 
arise,  the  general  term  "grid"  Is  sometimes  used  for  a  uniform  grid. 

A  boundary  point  ordinal  number  is  the  ordinal  number  of 
boundary  grid-points  when  they  are  all  ordered  In  their  natural  sequence; 
1.e.,\1n  ascending  order  of  curves.  In  ascending  order  of  pieces  within 

r  D 

each  curve,  and  In  ascending  t  (Including  t  and  t  )  within  each 
piece.  In  closed  curves  the  first  and  last  boundary  points  have  differ 
ordinal  numbers  although  they  correspond  to  the  same  physical  point. 

A  grid-function  Is  a  function  defined  on  a  grid,  l.e.,  an  ordered 

• 

set  of  values  with  one  to  one  correspondence  to  grid- points.  Often 
It  will  represent  some  approximate  solution  of  a  discretized  problem. 

There  are  two  kinds  of  grid  functions  corresponding  to  the  two  kinds  of 
grids:  a  uniform-grid- function  and  a  boundary-grid- function.  On  any  grid 
any  number  of  grid  functions  may  be  defined.  Each  grid  function  is  thus 
uniquely  specified  by  giving  its  grid  number  together  with  its  grid- 
function  ordinal  number ,  the  latter  specifying  its  ordinal  number  relative 
to  other  functions  defined  on  the  same  grid.  A  grid  function  is  illustrated 
in  Fig.  2. 

A  function-etring  is  the  sequence  of  function  values  that  correspond 
to  a  point-string,  which  is  a  vertical  string  In  case  of  a  vertical  uniform 


grid,  a  horizontal  string  In  case  of  a  horizontal  uniform  grid,  and  a 
discrete  piece  In  case  of  a  perimetric  boundary  grid.  (See  Sec.  3.2.  For 
function  strings  of  boundary  grids  In  other  construction  orders,  see  Sec. 

3.3.)  If  several  functions  are  defined  on  the  grid,  all  function  values 
corresponding  to  the  same  grldpoint  are  taken  consecutively,  before  all 
those  corresponding  to  the  next  grldpoint  In  the  string.  We  thus  view 
all  the  functions  defined  on  the  grid  as  a  vector  of  functions,  with  a 
vector  of  numerical  values  corresponding  to  each  gridpoint.  All  these 
functions  should  be  of  the  same  type:  either  real  or  Integer.  (The 
type  can  be  changed,  though.  It  Is  determined  at  run  time  by  using  the 
QSPACE  or  LSPACE  routines.  See  Sec. 4.2.)  If  both  integer  and  real 
functions  are  desired  on  the  same  grid.  It  should  be  treated  formally  as 
two  different  grids.  (Similarly,  an  interior  grid  and  its  boundary 
intersections  are  formally  viewed  as  two  different  grids.  Super-structures 
may  later  be  defined  for  briefly  describing  operations  involving  different 
but  related  grids.) 

A  templet  is  a  set  of  shifts  on  a  grid,  used  to  describe  the  neighborhood 
of  a  grid- point.  For  example,  the  neighborhood 

•  X  • 

(the  standard  5-point  neighborhood  of  the  point  x,  used  for  example  in 
approximating  the  Laplace  or  Poisson  equation  at  x)  is  represented 
by  the  templet  ((0,0), (0,1), (0,-1 ),{-l ,0),(1 ,0)).  Each  templet  has  a 
unique  templet  (ordinal)  number  ( t ) . 

The  i-inner  subgrid  of  a  given  grid  G  is  the  grid  composed  of  all  the 
points  belonging  to  G  whose  neighbors  according  to  the  given  templet 


number  t  ere  elso  all  In  6.  The  t •outer  aubgrid  of  a  given  grid  6 
Is  a  grid  composed  of  all  the  points  of  G  without  the  points  of  the 
t-lnner  subgrid. 


All  the  grids  are  organized  using  linked  allocation  In  two  general 
vectors  ("garbage  collectors"):  The  L  epaoe  for  all  logical. and  Integer 
data  (mainly  pointers),  and  the  Q  epaoe  for  all  type-real  data  (mainly 
numerical  values  of  grid  functions). 


All  the  Information  related  to  grid  n  branches  from  a  fixed  list  of 
Integer  parameters  starting  at  L(L(n)).  This  list  (fully  given  In  [  1., 

App.  Ill)  specifies  the  number  of  functions  defined  on  the  grid  and  their 
type  (real  or  Integer),  the  grid's  construction  order  (vertical  or  horizon¬ 
tal),  Its  type  (a  uniform  or  a  boundary  grid).  Its  parent  grid  m  (l.e., 
the  grid  Whose  storage  Is  used  by  grid  n  -  see  POINTO  In  Sec.  4.2;  If 
regular  storage  was  allocated  by  QSPACE(n,  NF),  then  m  s  n;  if  no  storage 
was  allocated,  then  m  *  0),  the  address  In  Q  of  Its  list  of  real  parameters 
(meshslzes  and  origin),  various  basic  grid  statistics  (such  as  Its  total  number 
of  sets,  columns  and  strings,  or  curves  and  pieces,  total  number  of  grid  • 
points,  total  L  and  Q  spaces  occupied  by  the  grid  and  its  functions,  and 
its  smallest  and  largest  row  and  column  numbers),  and  the  addresses  of  its 
chief  data  structures:  For  a  uniform  grid  the  address  is  given  of  the  first 
set-quad  (see  Sec.  3.1).  For  a  boundary  grid,  three  addresses  are  given, 
corresponding  to  the  three  construction  orders  in  which  each  boundary  grid 
Is  constantly  kept:  The  perimetric  order  (Sec.  3.2)  and  the  vertical  and 
horizontal  orders  (Sec.  3.3). 

3.1  Uniform-grid:  The  QUAD  structure 

A  uniform  grid  Is  organized  either  vertically  (in  columns)  or  horizontally 
(In  rows),  depending  on  the  order  in  which  it  is  to  be  used.  (See  Sec.  4.3, 
Including  the  remark  about  transposing  from  vertical  to  horizontal.)  For 
definiteness, the  vertical  construction  is  here  described. 


Each  vertical  grid  Is  described  as  a  sequence  of  column  strings  (sets) 
with  each  column  being  described  as  a  sequence  of  vertical  strings  (see  Fig. 
2).  Each  sequence*  either  of  strings  or  of  sets.  Is  represented  Internally 
by  a  chain  of  quads  (Integer  quadruples),  where  each  string  (or  set)  Is 


represented  by  a  quad  of  the  form 


LENGTH 


LOC  Is  the  location  where  the  string  Is  stored  (In  the  L  space  If  It  Is  a  set 


or  a  type-integer  function  string;  in  the  Q  space  if  it  is  a  type-real  function 


string).  INDEX  and  LENGTH  describe  the  lattice  position  of  the  string.  INDEX 


Is  Its  first  Index,  l.e.,  the  column  number  of  its  first  column  if  this  Is  a 


column  string,  or  the  row  number  of  Its  first  grid-point  if  this  Is  a  function 


string.  LENGTH  Is  the  cardinal  number  of  columns  or  grid-points  In  the  string. 
NEXT  Is  the  location  (In  L)  of  the  next  quad  in  the  chain;  NEXT  =  0  If  the 


present  quad  Is  the  last  In  Its  chain. 


Thus,  every  grid  Is  represented  by  a  chain  of  eet-quade ,  corresponding  to 
Its  sequence  of  sets,  and  every  column  is  represented  by  a  chain  of  string-quade  , 


corresponding  to  Its  sequence  of  vertical  strings.  Each  set-quad  points  to  a 


set  (a  sequence  of  consecutive  columns),  i.e.,  its  INDEX  and  LENGTH  pointers 


Indicate  which  and  how  many  columns  are  included  in  the  set,  and  its  LOC 


pointer  show  the  address  in  L  where  the  representation  of  that  set  starts. 


Namely,  at  L(LOC)  a  sequence  of  LENGTH  string-quads  starts,  corresponding 


to  the  LENGTH  columns  of  the  set;  each  string-quad  in  that  sequence  is  in 


fact  the  first  In  the  chain  of  string-quads  representing  the  corresponding 
column.  Each  string-quad  points  to  a  function  string;  i.e.,  its  INDEX  and 


LENGTH  pointers  indicate  on  which  consecutive  grid-points  the  function  string 
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Is  defined,  while  Its  LOC  pointer  shows  the  location  In  Q  (or  In  L,  If  the 
function  Is  type-integer)  where  the  function  string  Is  stored. 

This  "QUAD  structure"  Is  relatively  inexpensive,  since  a  group  of  four 
Integers  represents  a  whole  string  of  function  values.  Moreover,  It  Is  very 
efficient  for  grid  sweeping  operations .  If  the  sweep  Is  made  In  the  construc¬ 
tion  lines  (e.g..  In  columns  when  the  construction  Is  vertical),  then  It  can 
be  made  In  terms  of  efficient  singly  Indexed  DO  loops  (see  Fig.  1).  To 
sweep  that  efficiently  In  the  other  direction,  too,  one  can  transpose  the 
grid.  The  QUAD  structure  may  be  somewhat  Inefficient  In  separately  accessing 
a  single  grid-point  of  a  multi-string  grid,  but  this  Is  an  unlikely  event. 

All  the  usual  multigrid  processes,  for  example,  are  sweep  processes;  an 
Isolated  access  to  a  point  Is  seldom  needed. 

Moreover,  the  QUAD  structure  Is  very  suitable  for  grid  changes,  like 
those  required  by  adaptive-grid  procedures.  Every  string  can  reside  anywhere 
In  the  L  or  Q  space,  and  Its  length  can  therefore  easily  be  changed  J>y 
reconstructing  It  In  a  new  location  If  necessary.  After  many  changes  of  this 
type,  many  gaps  (unused  locations)  may  appear  in  the  Q  and  L  spaces.  The 
system  keeps  track  of  the  total  length  of  these  gaps.  When  it  accumulates  to 
a  serious  proportion,  the  gaps  are  automatically  eliminated  by  one  pass  of 
"Garbage  Collection"  (described  in  [  1  ,  App.  II]).  This  pass  is  very  inex¬ 
pensive  relative  to  the  numerical  processes  that  would  create  those  gaps  (e.g. 
processes  of  grid  adaptation,  which  normally  follow  at  least  a  couple  of 
relaxation  sweeps  over  the  adapted  grids). 

3.2  Boundary  grid:  Perimetric  order 


To  obtain  full  efficiency  and  flexibility  in  applications,  each  boundary 
grid  information  is  constantly  kept  in  three  different  data  structures.  The 


first  and  most  basic  structure  organizes  the  boundary  grid  as  a  sequence  of 
curves,  each  curve  being  organized  as  a  sequence  of  pieces  for  which  function 
strings  are  ordered  In  boundary  ordinal  numbers. 


Thus,  this  "perimetric"  construction  order  starts  with  a  sequence  of 
lists,  corresponding  to  the  sequence  of  curves  of  the  grid.  For  each  curve 
the  corresponding  list  specifies  Its  closure  type  (open,  closed  clockwise, 
or  closed  counter-clockwise),  the  ordinal  number  of  Its  first  piece,  how  many 
pieces  It  includes,  and  the  addresses  of  two  sequences  of  lists,  one  In  L 
and  one  In  Q,  each  sequence  corresponding  to  the  sequence  of  pieces  In  the 
curve.  For  each  piece.  Its  corresponding  Q-llst  gives  the  limits  of  Its 
parameter  (t  and  t  In  Sec.  2).  Its  corresponding  L-llst  specifies 
the  ordinal  number  of  the  pair  of  FORTRAN  functions  defining  the  piece  (X(t) 
and  Y(t)  in  Sec.  2),  the  ordinal  and  cardinal  number  of  the  points  In  the 
piece,  and  the  address  of  the  function  string  corresponding  to  the  piece. 

Special  functions  can  be  defined  on  this  construction  order  (some  of 
them  are  naturally  produced  together  with  the  creation  of  the  data  structure) 
to  store  various  geometrical  information  and  relations  to  (e.g.,  addresses  of 
function  strings  of)  corresponding  interior  grids  (see  Sec.  3.5). 

3.3  Boundary  grid:  Vertical  and  horizontal  orders 

The  second  data  structure  constantly  kept  for  each  boundary-grid  Is  the 
vertical  one,  describing  the  grid  as  a  sequence  of  sets,  each  set  being  a 
sequence  of  consecutive  columns  and  each  column  a  sequence  of  boundary  inter¬ 
sections  (the  boundary  intersections  with  the  column,  ordered  in  ascending 
ordinates).  It  employs  a  system  of  pointers  similar  to  the  structures  above, 
leading  to  the  addresses  of  function  strings.  Each  function  string  here  is  a 
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sequence  of  (possibly  vectorial)  values  corresponding  to  the  sequence  of  a 
column's  boundary  Intersections. 

The  third  structure  Is  the  horizontal  one.  similar  to  the  vertical,  rows 
replacing  columns. 

Special  functions  can  be  defined  on  these  construction  orders  to  store 
various  geometrical  Information  and  relations  to  the  perimetric  construction 
order  (see  Sec.  3.5). 


3.4  Templets 

The  templet  nunber  t  Is  stored  as  a  string  of  Integers  starting  at 
L(L(NT  +  ?)).  where  NT  Is  fixed  by  the  initialization  routine  INIT.  The 
first  Integer  In  the  string  specifies  how  many  shifts  are  Included  In  t»  and 
the  shifts  themselves  follow,  represented  by  a  pair  of  Integers  each. 


3.5  Handling  boundary  operators  and  geometry 

One  of  the  heaviest  tasks  usually  confronted  In  general -domain  grid 
programs  Is  that  of  storing  and  using  the  geometrical  Information  related  to 
the  boundary,  producing,  for  example,  difference  approximations  at  Irregular 
Interior  points  near  the  boundary,  or  approximating  Neumann  boundary  conditions, 
etc.  The  data  structures  presented  above,  together  with  a  library  of  routines, 
part  of  which  has  already  been  written,  can  alleviate  this  task,  and  systematize 
It  so  that  much  of  the  programming  can  be  done  once  and  for  all.  The  main 
vehicle  Is  the  Introduction  of  a  collection  of  standard  geometrical  functions, 
some  of  which  are  boundary-grid  functions,  others  are  t-outer-subgrld  functions. 

Some  boundary-grid  functions  are  produced  during  the  construction  of  the 
boundary-grid,  and  can  be  useful  again  later.  These  Include  the  following 
functions,  shown  as  functions  of  the  boundary-point  ordinal  number  k: 


■r 
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BTYPE(k)  -  the  boundary  type  of  k  (an  Intersection  with  a  column,  or  with  a  row, 
or  a  piece  end-point,  or  a  combination  of  these  types). 

NPOINT(k)  -  the  ordinal  number  (within  the  piece)  of  k. 

NPIECE(k)  -  the  ordinal  number  (within  the  curve)  of  the  piece  to  which  k  belongs. 

NCURVE(k)  -  the  ordinal  number  (within  the  boundary  grid)  of  the  curve  to  which 
k  belongs. 

TCOOR(k)  -  the  value  of  the  piece  parameter  (t  In  Sec.  2)  at  k. 

XCOOR(k)  -  the  value  of  the  x-coordinate  at  k. 

YCOOR(k)  -  the  value  of  the  y-coordlnate  at  k. 

Generally,  the  user  of  GRIDPACK  can  cancel  any  function  defined  on  any  grid, 
freeing  their  Q  (or  L)  storage  for  other  uses.  Or  he  can  create  new  functions, 
changing  If  needed  the  number  of  functions  defined  on  any  grid  (see  Sec.  4.2). 

In  particular,  he  may  cancel  any  of  the  above  functions  when  no  longer  needed, 
or  rebuild  them.  Other  geometrical  functions  of  a  similar  nature  may  be  added 

to  the  system,  such  as  functions  that  give,  at  each  boundary  point  k,  the 

* 

slopes  dX/dt,  dY/dt  or  dX/dY,  or  the  curvature  of  the  piece,  higher-order 
derivatives,  etc. 

Also,  a  collection  of  type-integer  and  type-real  functions  can  be  built 
that  form,  for  each  grid-point  k,  a  finite-difference  formula  approximating 
the  normal  derivative  at  k,  with  the  type-integer  functions  supplying  the 
addresses  in  Q  of  the  function  values  participating  in  that  formula. 

Similar  finite-difference  boundary  capabilities  can  be  added  to  the  system. 

Once  programmed,  they  can  be  used  for  any  grid  by  any  GRIDPACK  user. 

Another  type  of  geometrical  information  can  be  given  as  functions  of 
the  uniform-grid  points  near  the  boundary,  i.e.,  as  functions  defined  on 
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t- outer  subgrids.  These  functions  may  Include  horizontal  and  vertical 
distances  to  the  boundary,  the  addresses  of  function  values  defined  on  neighboring 
boundary  Intersections  (see  POINTE  and  POINTB  in  Sec.  4.3,  for  example), 
etc.  These  elementary  functions  can  then  be  used  by  various* GRIDPACK  users  to 
construct  more  advanced  functions,  such  as  formulas  for  various  finite-difference 
approximations  to  various  differential  operators,  with  type-integer  functions 
giving  addresses  of  values  participating  In  the  formulae.  The  creation  of  such 
functions  could  again  be  programmed  once  and  for  all,  making  Cartesian-coordinate 
differencing  near  curved  boundaries  much  more  standard  and  easier. 


4.  6RIDPACK  ROUTINES 

In  this  section  we  briefly  describe  a  selection  of  those  GRIDPACK  sub¬ 
routines  which  are  available  to  the  usual  user.  Lists  of  routine  parameters 
are  sometimes  abbreviated  here  for  the  sake  of  clarity.  All  parameters  are 
allowed  to  be  variables.  Ue  do  not  describe  here  error  messages.  For  the 
full  description  of  all  GRIDPACK  routines.  Including  Internal  routines  not 
normally  accessible  to  the  user,  see  [1,  Appendix  II]. 

4.1  Initialization  and  logical  grid  operations 

Logical  grid  operations  are  routines  (whose  name  therefore  usually 
starts  with  an  L)  which  deal  with  the  logical  structures  (the  pointers) 
of  the  grid,  not  with  allocating  or  using  storage  for  functions  defined  on 
the  grid.  Thus,  the  LOC  pointers  of  the  string  quads  remain  undefined 
by  these  routines.  The  computer  time  expended  by  these  routines  (and  also 
by  those  of  Secs.  4.2  and  4.3)  is  negligible,  because  it  is  proportional 
to  the  number  q  of  strings  In  the  grid,  whereas  numerical  processes 
(relaxation,  etc.)  expand  many  operations  per  grid  point.  Exceptions  are 
routines  LTP0SE  ,  where  the  work  is  0(q  log  q)  ,  and  LGRDCR  ,  where 
the  characteristic  function  should  be  evaluated  at  each  lattice  point  in 
the  rectangle  [x^.Xg]  x  [y^.y^. 

As  a  general  rule,  all  the  routines  below  assume  (and  check)  that 
when  different  grids  participate  in  the  same  logical  operation  they  have 
the  same  construction  order  and  the  same  lattice  (except  in  coarsening  and 
refinement  operations,  of  course).  In  grid  operations  creating  new  grids, 
if  the  new  grid  number  coincides  with  a  previously  defined  one,  the  old 
one  is  thereby  deleted. 
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Several  of  the  routines  In  this  section  and  In  Sec.  4.2  were  designed 
In  collaboration  with  F.  Gustavson  and  written  by  F.  Gustavson  and  A. 

Goodman  at  IBM  T.  J.  Watson  Research  Center,  York town  Heights,  New  York. 

Some  of  the  Internal  routines  used  by  LGROBR  were  modified  ELLPACK 
routines  [9]. 

INIT  -  Initialization  routine,  should  be  called  before  any  other  GRIDPACK 
routine.  It  gets  from  the  user  several  basic  parameters,  such  as 
the  maximum  number  of  grids,  maximum  number  of  templets  and  constants 
affecting  the  frequency  of  garbage  collection.  The  user  can  sometimes 

also  make  changes  In  a  long  list  of  GRIDPACK  constants  held  In 

* 

certain  COMMONS.  The  INIT  routine  uses  all  these  parameters  and 
constants  to  set  up  various  pointers  Into  the  L  and  Q  spaces. 

(cf.,  e.g..  Sec.  3.4) 

LGRDCR  (n,x0,y0,hx,hy,Ic,x1,x2.y1ty2.CHAP.)  -  Create  uni form-grid 

6(D;x0,y0*,hx,hy)  with  ordinal  grid  number  n  ,  where  the  domain  D  Is 
defined  by  the  characteristic  function  CHAR(x,y)  : 

0*  ((x.y)  |  x^xf.Xg,  y-j<y<y2.  CHAR(x,y)  *  1}. 

Ic  Is  the  Index  of  construction  order;  Ic  =  l  if  vertical, 

I_ a  0  if  horizontal . 
c 

LGRD2F  (n,x0,y0,hx,hy,Ic,x^ ,x2,f^ ,f2)  -  Create  uniform-grid  number 

t  given  the  2  functions  f^(x)  and  f2(x)  .  Similar  to  LGRDCR, 
except  that 


LGRD6R  (n,hx,hy,x0,y0,Ic,NB,BCOORD,INITB)  -  Create  boundajry-grid  n  which 
Is  the  Intersection  of  the  lines  of  Ux0,y0;hx,hy)  with  the 
continuous  boundary  defined  by  the  ordinal  number  NB  and  by  the 
user's  boundary-specification  routines  INITB  and  BCOORD,  which 
are  structured  as  similar  ELLPACK  routines. 

LGRIDB(n,m,Ic,hx,hy)  -  Create  the  uniform-grid  n  bounded  by  the  boundary- 

grid  m,  in  construction  order  I  .  The  meshsizes  (h  ,  h  )  of 

c  x  y 

n  should  be  integer  multiples  of  those  of  m. 

DELETE(n)  -  Delete  logical  grid  number  n  . 

LCOARS{m,n,I„,I„)  -  Create  grid  n  which  is  the  coarseninq  of  arid  m 
x  y 

by  factors  Ix  and  I  in  the  x  and  y  directions,  respectively. 

LUNIONU.m.n)  -  Create  union  of  two  uniform  grids:  n  =  t  U  m  . 

LSECT(i,m,n)  -  Create  the  uniform-grids  intersection  n  *  i  n  m  . 

LMINUS(t,m,n)  -  Create  the  uniform-grids  difference  n  •  l  -  m. 

BTEMPL(t.IT)  -  Build  tempi et  number  t  by  the  information  in  array  IT  , 
simply  by  copying  from  IT  to  L(L(NT+t))  (see  Sec.  3.4). 

DELT(t)  -  Deletes  templet  t  . 

LINNER(m,n,x)  -  Create  n  as  the  x-inner  subgrid  of  grid  m  . 

LOUTER(m,n,T)  -  Create  n  as  the  T-outer  subgrid  of  grid  m  . 

LINRBT(n,m,x  ,x  ,1  ,h  ,h  )  -  Create  internal  uniform-grid  n  bounded  by 

x  y  c  x  y 

boundary-grid  m  with  construction  order  I  and  meshsizes  h  and 

C  X 

h  ,  "internal"  being  defined  in  terms  of  the  templets  t  and  t  : 
y  x  y 

An  internal  point  is  a  grid  point  inside  the  domain  bounded  by  m  , 

whose  all  t  -neighbors  and  all  t  -neighbors  are  also  in  that  domain, 

*  y 


and  none  of  whose  t  -neighborhood  horizontal  links  and  t  -neighborhood 

*  y 

vertical  links  Is  Intersected  by  the  boundary  grid. 

LTP0SE(m,n)  -  Create  n  as  the  transpose  of  m  ,  i.e.,  the. same  uniform 
grid  but  In  the  opposite  construction  order. 

COMPARE  (t*m)  -  Compare  the  constants  of  grids  i  and  m  (their  origins, 
meshslzes,  total  number  of  points,  strings  and  columns,  etc.)  and 
print  them  out,  usually  for  debugging  purposes. 

0RI6IN(n,xo,yo)  -  Change  the  origin  of  grid  n  to  (x0,y0)  . 

Function  NGFREE(n)  is  the  smallest  grid  number  greater  than  n  which  Is 
free  (not  assigned  to  undeleted  grid). 

Function  NTFREE(t)  Is  the  smallest  templet  number  above  t  which  Is  free. 


4.2  Function  storage  allocation 

The  routines  In  this  section  specify,  or  change,  the  number  of 
functions  defined  on  a  (uniform  or  boundary)  grid,  and  allocate  for  them 
suitable  Q  or  L  storage,  supplying  accordingly  the  values  for  the  LOC 
pointers  In  the  string  quads.  Allocating  storage  In  the  Q  space  defines 
the  functions,  and  hence  the  grid,  to  be  type-real,  while  allocating  In 
L  defines  them  as  type- integer. 

QSPACE(n.NF)  -  Allocate  £  space  for  a  vector  of  NF  grid  functions  on 
grid  n  . 

LSPACE(n.NF)  -  Similar  allocation  In  L  space. 

P0INT0(n,m)  -  Set  the  pointers  of  uniform-grid  n  to  point  into  the  function 
strings  of  uniform-grid  m.  Usually  grid  n  will  represent  a  subgrid 
m,  created  for  example  by  LINNER(m,n,T)  or  LSECT(*,m,n)  .  This 
routine  thus  enables  us  to  operate  on  a  proper  part  of  a  grid.  The 


number  of  functions  (NF)  defined  on  n  is  automatically  set  to 
equal  that  of  n. 

QOFF(n)  -  The  same  as  QSPACE(n.o)  . 

4.3  KEY  interface 

Here  is  a  collection  of  routines  designed  to  Interface  between  the 
user  and  the  grid  functions  and  other  grid  data.  Starting  from  the  grid 
number  specified  by  the  user,  the  KEY  routines  will  trace  various 
pointers,  make  some  short  calculations  and  then  load  convenient  Interface 
information  into  arrays  named  by  the  user.  With  this  information  the  user 
can' perform  fully  efficient  DO  loops  over  columns  of  vertical  grids  or 
over  rows  of  hotizontal  grids.  If  the  grid  construction  order  is  not 
compatible  with  the  interior  loops,  one  can  obtain  full  efficiency  by 
first  transposing  the  grid  (see  LTPOSE  in  Sec.  4.1  and  TFERTP  In 

Sec.  4.4).  The  transposition  is  very  Inexpensive  (relative  to  the  cost 

• 

of  a  relaxation  sweep,  for  example). 

KEYS  (n,I^,l2,IR,J<|,J2,JR,...)  *  Load  constants  I  ^  ,  and  IR  ,  and 

vectors  Jj  ,  Jg  and  JR  so  that  if  u  is  the  only  function  defined 
on  the  vertical  single-string  grid  n,  its  value  at  the  (i,j)  gridpoint 
will  be  given  by 

uij  =  u<Vihx  ’  VV  =  Q(JR(IR+i)  +  j)  » 

valid  (i.e.,  (1,j)  is  Indeed  a  gridpoint)  for 
1 1  i  1  1  l£»  J-J  (1  )  j  £.  j£(  1  )  • 

See  an  example  for  the  use  of  this  routine  in  Fig.  1  above.  For  a 
horizontal  grid  n,  KEYS(n,J^ .J^.JR  1^ ,l£,IR,. . . )  would  similarly 


give  *  Q(IR(JR+j)+ 1 ) .  The  unshown  parameters  of  KEYS 
above  include  the  meshsizes  of  grid  n,  and  sometimes  additional 
Information. 

0 

KEYG(n,...)  -  Similar  to  KEYS,  but  for  a  general  (possibly  multi-string) 
grid  n.  In  this  case,  for  a  vertical  grid, 

u^j  *  Q(JR(KR(IR(£)+ 1 )  +  k)  +  j)  , 

where  k  is  the  string  number  within  the  column  and  £  is  the 
set  number.  IR  ,  KR  and  JR  ,  as  well  as  other  vectors  giving  the 
ranges  of  :  ,  k  ,  1  and  £  in  the  grid,  are  all  specified  by  the 
'user  and  loaded  by  KEYG  . 

KEYI(n,T,. . . )  -  Similar  to  KEYG,  but  giving  the  ranges  for  the  -Mnner 
subgrid  of  n. 

KEYBG(n, . . . )  -  Give  similar  access  to  boundary  grid  n  in  perimetric 
order. 

KEYP(n,NC,NP, . . . )  -  Give  access  to  the  NP-th  giece  in  the  NC-th  curve 
of  boundary  grid  n  . 

KEYBI(n,IC,...)  -  Give  access  to  the  boundary  grid  number  n  ,  in  I 

v 

construction  order  (vertical  or  horizontal). 

POINTE(n.m)  -  Point  the  function  on  uniform-grid  n  to  the  east  neighbor 
on  boundary-grid  m;  i.e.,  for  each  gridpoint  of  n  insert  the 
address  of  the  boundary  function  value  corresponding  to  the  nearest 
boundary  point  lying  east  to  the  gridpoint,  at  a  distance  less  than 
the  meshsize.  If  the  distance  is  greater  than  the  meshsize,  the 
value  ITOP  (a  standard  default  ingeter,  usually  the  largest  integer 
defined  on  the  computer)  is  instead  inserted.  Usually  grid  n  for 


such  a  purpose  will  be  a  t-outer  subgrid,  the  templet  t  containing 
(only)  the  east  shift  (0,1)  .  In  this  example  grid  n  should  have 
a  single  type-integer  function  defined  on  It,  by  having  called 
LSPACE(n.l). 

POINTB(n,m,v£,vw,vN,vs)  -  Point  the  vE-th  function  on  grid  n  to  the  east 
neighbor  on  boundary- grid  m ,  the  vy-th  function  to  the  west  neighbor 
vN-th  to  the  north,  and  v$-th  to  the  south. 

4.4  Function  Initialization,  operation  and  transfer 


The  subroutines  in  this  section  and  in  the  next  are  part  of  a  growing 
collection  of  routines  for  putting  values  into,  and  transferring  values 
between,  grid  functions.  Functions  mentioned  In  Sec.  3.5  are  also  part 
of  that  collection. 

In  the  description  below  we  denote  the  v-th  function  defined  on  n 
by  un,v  ,  and  its  value  at  gridpoint  (1,j)  by  u”jv  .  un  stands  for 
the  vector  of  functions  (or  the  single  function)  defined  on  grid  n  . 

PUTSC(n,v,C)  -  Put  the  scalar  constant  C  into  un,v  . 

PUTSF(n,v,F)  -  Put  the  scalar  function  F(x,y)  into  un,v  ;  i.e., 

uijV  F(xi  ■*!>  ‘  F(Vihx*  W' 

PUTVC(n.V)  -  Put  the  constant  vector  V  into  u*1 .  The  length  of  V  is 
assumed  to  equal  the  number  of  functions  defined  on  n  . 

PUTC(n,C)  -  Same  as  PUTSC(n,l ,C). 

PUTZ(n)  -  Same  as  PUTC(n,0). 

PUTF(n,F)  -  Same  as  PUTSF(n,l ,F). 

In  the  following  transfers,  where  several  grids  participate,  it 


is  assumed  that  all  grids  have  the  same  lattice,  the  same  number  of 


functions,  and  the  same  construction  order  (except  in  TFERTP,  of  course). 
The  transfer  Is  always  made  at  all  lattice  points  (1,j)  common  to  all 
participating  grids. 

TFER(m,n)  -  Transfer  u^  into  u?j  . 

SUBF(i,m,n)  -  Put  u?.  -  u^.  into  u!?..  . 

ADDF(i,m,n)  -  Put  u*..  +  u'j’j  into  u"j  . 

PUTF2FU,m,n,F)  -  Put  F{uJj  ,  uT.)  into  u^  . 

TFERTP(m.n)  -  Transfer  u^  into  u?.  ,  uniform  grids  m  and  n  having 
opposite  (transposed)  construction  orders.  By  using  this  routine 
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between  two  applications  of  a  line  relaxation  routine,  for  example, 
alternating-direction  line  relaxation  procedure  is  automatically 
obtained.  The  transfer  costs  only  one  addition  per  gridpoint, 
plus  some  operations  per  string. 

4.5  Interpolation 

The  collection  of  interpolation  routines  turned  out  to  be  perhaps 
the  most  difficult  to  develop,  mainly  due  to  the  attempted  generality. 

There  are  many  possible  cases  to  be  considered  regarding  the  relative 
positions  of  the  involved  grids  and  boundaries.  Situations  may  arise, 
especially  with  very  coarse  grids  and  near  special  boundary  configurations, 
where  the  desired  order  of  interpolation  is  difficult,  or  even  impossible, 
to  achieve,  since  not  enough  points  are  available  to  interpolate  from. 
Non-standard  (e.q.,  non-central)  interpolation  formulas  are  then  tried 
in  various  ways,  searching  for  a  rule  as  close  to  central  as  possible 
which  still  gives  the  highest  possible  interpolation  order  (up  to  the 
designated  order).  Therefore,  uniform-grid  interpolation  routines  have 


so  far  been  developed  only  for  the  standard  coarse- to-fine  case,  l.e., 

from  a  coarse  grid  m  to  a  finer  grid  n  where  (h*"  :  hn  ,  hm  :  hn)  Is 

x  x  y  y 

either  (2,2)  ,  (2,1)  ,  or  (1,2)  ,  and  where  every  coarse-grld  line  coincides 
with  a  fine-grid  line.  The  routines  are  devised  to  have'full  speed  at 
Interior  parts  of  the  two  grids,  with  fully  efficient  DO  loops.  Near 
the  boundaries,  however,  the  routines  are  still  engaged  in  very  Inefficient 
searches.  Detailed  account  and  timing  of  the  interpolation  algorithms 
is  given  in  [1 ,  App.  II]. 

Routines  INT2,  INT2AD  and  INT4  were  contributed  by  Markus  von  Cube 
at  6MD,  St.  Augustin,  Germany. 

INTAD(n,m,v,v,I)  -  Interpolate  I-order  bipolynomial  interpolation 

from  the  v-th  function  on  the  coarse  grid  n  and  add  the  interpolant 
to  the  y-th  function  on  the  fine  grid  m  .  Both  grids  are  uniform; 
this  routine  uses  no  boundary  information,  hence  extrapolation 
would  frequently  be  used  at  marginal  points  even  for  bilinear  (1*2) 
interpolation.  Special  subroutines  are  used  by  INTAD  for  important 
cases  which  can  be  executed  faster  than  the  general  case,  such  as 
single-string  grids  or  the  special  orders  1=2  (bilinear)  and  1=4 
(bicubic) . 

INTRB2(n,m,v,y)  -  Perform  linear  (order  2)  interpolation  from  the  y-th 

function  on  boundary  grid  m  to  the  v-th  function  on  boundary  grid 
n  ,  where  both  grids  are  defined  on  the  same  continuous  boundary,  but 
their  lattices  need  not  have  any  particular  relation  to  each  other. 

The  interpolation  is  performed  with  respect  to  the  piece  parameter 
(t  in  Sec.  2). 


INT2(n,m,i)  -  Interpolate  linear  (order  2)  Interpolation  from  uniform 
grid  m  and  boundary  grid  t  to  uniform  grid  n  ,  all  assumed  to 
have  the  same  lattice. 
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INT4(n,m,  l)  -  Similar,  with  cubic  (4-th  order)  Interpolation. 

INT2AD(n,m,  i)  -  Like  INT2,  but  the  Interpolated  function  Is  added  to 
the  previous  function  on  grid  n  . 

4.6  Display 

The  routines  below  are  used  for  displaying  grids  (also  showing  their 

relative  positions),  grid  functions,  templets  and  boundaries. 

DISPG(n,LW,ICAR,LU)  -  Display  uniform  arid  n  by  printing  the  character 
ICAR  in  page  positions  corresponding  to  grid  points.  LW  is  the 
line  width  (number  of  characters  per  line);  if  it  is  not  large 
enough,  the  grid  is  shown  in  bands  of  LW  characters  each.  LU  is 
the  logical  output  unit. 

DISPGS(N,NL,LW,ICAR,LU)  -  Similarly  display  NL  uniform  grid£  simultaneously 
N  is  a  vector  of  NL  grid  numbers  and  ICAR  is  a  vector  of  NL 
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corresponding  display  characters.  The  grids  are  printed  on  top 
of  each  other,  thus  showing  their  relative  positions.  It  is 
assumed  that  all  grids  have  the  same  construction  order  and  matching 
lattices;  i.e.,  all  lattices  are  subsets  of  one  underlying  lattice, 
used  to  determine  the  page  positions. 

DISPT(t.LU)  -  Similarly  display  templet  number  t  . 

DISPF(n,v,LW,IFE,w,d,LU)  -  Display  the  values  of  the  v-th  function  on 
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grid  n,  using  Fortran  format  Fw.d  (if  I FE=0)  or  Ew.d  (if  IFE^O), 

LW  and  LU  meaning  as  above. 


PLTLAT(n,XL,YL,IPEN)  -  Plot  uniform  grid  n  ,  In  IPEN  color  and  on 


XL  x  YL  paper. 

PLTBND(n,v,IPL,INDB,IPEN,XL,YL)  -  Plot  boundary  grid  n  and  the  v-th 

function  on  It.  If  INDBs0,  the  ordinal  numbers  of  the  grldpolnts 
are  shown.  If  INDBs1(  their  types  of  Intersection  are  printed. 

If  INDB*2,  the  values  of  the  function  are  printed.  If  INDB*3,  the 
pieces  are  drawn  and  the  piece  ordinal  numbers  are  shown.  IPEN 
Is  the  color  and  XL  x  YL  Is  the  size  of  the  paper.  If  IPL*1 
this  Is  the  last  plot  on  the  present  paper.  It  Is  thus  possible 
to  combine  several  such  plots  on  top  of  each  other.  In  a  variety 
''  of  colors. 

D0MPLT(. . . ,NB)  -  Plots  the  continuous  boundary  number  NB  with  ELLPACK-type 
data. 

DUMPQL  -  Dump  the  Q  and  L  vectors  (for  debugging  purposes). 

4.7  Multi  grid  drivers  and  subroutines 

6RIDPACK  comes  with  a  collection  of  multigrid  programs  that  are  used 

for  testing  the  whole  package  and  are  also  useful  for  solving  various  PDE 

problems  and  can  easily  be  extended  to  solve  many  others.  An  example: 

MULTIGUj  ,x2,yi  ,y2»CHAR,x0,y0,Hx,Hy,M,. . . , RELAX, RESCAL)  -  Solve  a 
differential  equation  using  M  grids  with  lattices 

L<VVHx*2"k’  V2‘k>’  0±k<M). 

A  sequence  of  additional  parameters  specified  by  the  user  controls  the 
algorithm  to  be  an  accommodative  or  fixed  Full  Multi-Grid  (FMG) 
algorithm  employing  the  Correction-Scheme  (CS)  or  the  Full 
Approximation  Scheme  (FAS).  RELAX(n,RES)  should  be  a  routine  that  performs 


a  relaxation  sweep  (thus  also  defining  the  difference  equations. 
Including  boundary  conditions)  and  outputs  the  residual  norm  RES. 

It  should  be  written  for  a  general  grid  number  n  (using  a  KEY 
routine,  as  In  Fig.  1).  RESCAL(n.m)  should  be  a  routine  that  computes 
residuals  In  a  fine  grid  n  and  transfer  weighted  averages  of  them 
to  the  coarser  grid  m . 

Routines  RELAX  and  RESCAL  should  generally  be  supplied  by  the  user  of 
MULTIG.  Some  fairly  general  routines  of  these  kinds,  called  RELG  and 
RESG,  come  with  GRIOPACK  and  can  be  easily  modified  and  generalized  to 
various  other  cases.  A  library  of  such  routines,  all  written  In  terms  of 
general  grid  numbers,  should.  In  time,  be  developed.  An  Important  aid  In 
easy  writing  of  such  routines  Is  the  Grid  Language  (GL),  described  next. 
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b.  GRID  LANGUAGE  (GL) 

To  f  oli»  »te  the  »ogr.  ming  of  grid  "sweeping  opcr,itio>.s"  (operations 
which  are  done  sequentially  at  all  or  most  gridpoints;  e.g.,  a  relaxation 
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sweep),  and  to  simplify  various  other  aspects  of  using  GR1DPACK  and  other 
grid-oriented  programming,  a  special  extension  of  Fortran  called  Grid 
Language  (GL)  has  been  developed.  The  GL  macro -statements  are  written 
within  the  usual  Fortran  code,  each  macro  being  identified  by  "C*"  in 
the  first  two  columns,  and  may  be  continued  to  several  card  images  by  the 
usual  Fortran  continuation  convention.  '  These  macro-statements  are 
expanded  into  usual  Fortran  statements.  Including  suitable  calls  to  various 
GRIDPAGK  routines  described  above,  by  a  special  preprocessor  named  PREPACK. 
This  preprocessor  itself  is  written  in  basic  Fortran,  and  thus  enjoys  full 
portability. 

A  representative  list  of  GL  macro-statements  is  given  below.  In 
addition  to  these,  GL  statements  will  also  be  used  to  have  more  convenient 
calls  to  GRIDPACK  routines.  For  example,  n=UNI0N( t,m)  will  be  used 
instead  of  CALL  UN  I  ON  ( i,m,n) .  The  list  of  such  statements  will  not 
appear  here  since  it  is  so  far  only  partly  implemented. 

For  a  detailed  list  of  limitations  and  restrictions  currently  placed 
on  GL  statements,  and  for  a  detailed  description  of  PREPACK  with  its  three 
modes,  see  [1,  Appendix  III]. 

5.1  GL  DO  statements 

The  three  dots  (...)  appearing  in  a  statement  below  mean  that  indefinite 
number  of  additional  groups,  similar  to  the  groups  subscripted  by  1  and  2, 

could  be  added  to  the  statement.  Also,  we  denote  by  (x?  ,  y"  )  the  values 

•3 

of  the  (xfy)  coordinates  at  the  (1*j)  gridpoint  of  grid  n  . 


,V-V 
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DO  5  I  -  II,  12,  Al  -  The  usual  Fortran  DO  statement,  except  that  11,12 
and  the  Increment  Al  may  be  any  arithmetic  expression,  and  may 
assume  any  (negative,  zero  or  positive)  Integer  value. 

DO  5  (I,J)  =  GRID(n),  Al,  AJ,  n1(I1,J1),  n2(I2,J2),. . .  -  the  row  Index 

I  and  the  column  Index  J  traverse  all  the  grldpolnts  (I,J)  of  grid 

n  ,  In  Its  construction  order  and  In  (positive  or  negative)  Increments 

Al  and  aJ  ,  while  (I£,J£)  simultaneously  traverse  the  corresponding 

grldpoints  on  n£  ,  (£= 1 ,2 .... )  ;  i.e.,  at  each  pass  of  this  DO  loop 

(performing  the  statements  following  the  DO,  up  to  the  statement 

labelled  5)  (I,J)  Is  another  point  on  grid  n  ,  and  (I  ,  ,1  )  Is 
n  n9  1  1 

*et  so  that  (Xj  ,  y ,  )  =  (x"  ,  y|j),  If  this  Is  possible.  When 

'  z  °2. 

Impossible,  close  values  are  set  by  some  rules  [1,  Al I 1-4 .2.2].  The 
grid  numbers  n  and  n£  can  be  Integer  constants  or  variables,  but 
should  not,  of  course,  change  inside  the  DO  loop. 

DO  5  I  -  COLS(n),  Al,  n^I^),  n2(I2),  ...  -  I  traverses  the  columns  of 
grid  n,  in  increments  Al,  while  I£  traverses  the  corresponding 
columns  of  grid  n£  . 

DO  5  J  =  ROWS(n),  aJ,  n^J^),  n2(02),...  -  Similar. 

DO  5  J  =  C0L(I,n),  AJ,  n^J^),  n2(02),...  -  J  traverses  the  gridpoints 

of  column  I  in  grid  n  ,  J£  assuming  corresponding  values  on  grid 
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DO  5  I  *  ROW(J.n),  Al,  n^I^),  n2(I2),  ...  -  Similar. 

5.2  Statements  inside  GL  DO  loops 


The  following  GL  statements  can  typically  be  used  inside  DO-GRID  or 
DO-COL  or  DO-ROW  loops.  The  ASSIGN  statement  can  also  be  used  outside  the  loop. 


ASSIGN  u  AS  v  ON  n  -  Means  that  In  the  present  subprogram,  the  letter(s) 

i 

u  stand  for  the  v-th  function  on  grid  n  .  The  function  Index  v 
and  the  grid  number  n  can  be  either  constant  or  variable. 

u(I,J)  *  u(I+l.J)*u(I-l.J)-u1(l1,J1)*H2  -  An  example  of ‘a  usual 

Fortran  replacement  statement,  except  that  u  and  u&  may  be  grid 
functions,  u  Is  defined  as  a  grid  function  by  an  "ASSIGN  u  AS  v 
ON  n"  statement,  In  which  case  n  should  appear  as  a  grid  number  In 
the  preceding  DO  statement.  Also,  u  Is  automatically  designated  as  a 
grid  function  If  it  coincides  with  a  (constant  or  variable) 
grid  number  appearing  in  the  DO  statement,  in  which  case  u  stands 

\  for  the  first  function  of  that  grid.  Expressions  like  u(IX,0X)  can 

\ 

be  used,  with  IX  and  JX  any  arithmetic  expressions  In  I  and  0  , 
respectively,  where  (I,J)  are  the  indices  in  the  DO  statement 
traversing  the  grid  on  which  u  is  defined. 

REGULAR(t) 

IRREGULAR  15  -  The  sequence  of  statements  between  these  two  should  be 

executed  only  for  gridpoints  of  the  t-inner  subgrid  (of  the  principal 
grid  in  the  DO  statement),  while  the  sequence  between  IRREGULAR  and 
the  statement  labelled  15  should  only  be  executed  for  the  points  of 
the  i-outer  subgrid.  This  is  a  way  to  differentiate  between  the 
treatment  of  irregular  and  regular  points  while  still  maintaining 
high-speed  DO  loops  for  the  latter. 

IF((l1+1,J1).IN(T1).n1)  GO  TO  5  -  Test  whether  (Ij+l.Jj)  is 

In  the  Thinner  subgrid  of  grid  n-j  .  This  is  a  slow  way  to  differentiate 
types  of  points  and  should  therefore  usually  be  used  only  in  the 
sequence  following  an  IRREGULAR  statement. 


6.  Future  Extensions 


The  GRIDPACK  and  Grld-Langufge  system  should  be  extended  in  many 
directions.  First,  Improvement  In  the  current  routines,  and  chiefly 
in  the  Interpolation  collection  (see  Sec.  4.5)  Is  needed,  and  the 
library  of  boundary-treatment  routines  (see  Sec.  3.5)  and  multigrid 
programs  (see  Sec.  4.7)  should  significantly  be  expanded.  Much  of  this 
may  be  contributed  by  various  GRIDPACK  users. 

Next,  staggered  grids  (interacting  grids  whose  lattices  are 
shifted  a  constant  shift  from  each  other)  should  be  admitted.  This 
would  require  an  additional  collection  of  interpolation  routines,  some 
additional  GL  DO  statements  to  conveniently  access  shifted  neighbors, 
and  more  boundary-operator  programs.  Then,  rotated  grids  and  curved 
grids  should  similarly  be  Introduced.  It  is  enough  to  introduce  the 
simple  family  of  curved  grids  described  in  [3,  Sec.  2.3]  or  [6,  Sec.  9.3], 
which  are  fully  characterized  by  single-variable  functions.  This  will  make 
It  possible  to  use  local  coordinate  transformations  In  multigrid  fast 
solvers,  allowing  very  effective  treatment  of  curved  boundaries, interfaces, 
etc. 

Moving  boundary  capabilities  should  also  be  added.  This  would  make 
It  possible  to  trace  interfaces  and  Interior  discontinuites  (e.g.,  shocks). 
Again,  a  collection  of  new  Interpolation  and  boundary-operator  programs 
will  have  to  be  developed  for  this  purpose. 

Another,  ambitious  task  is  the  extension  of  the  current  two-dimensional 
system  to  deal  with  three-dimensional  grids. 
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SUBROUTINE  PUTZ(N) 

COMMON  J1 (65) ,  J2(65),  JR(65) 

CALL  KEYS  (N,I1 ,I2,IR,J1 ,J2,JR, . . . ) 

DO  1  I  =  IR+I1 ,  I R +12 

DO  1  I J= JR( I )+Jl (I),JR(I}+J2(I) 

1  Q(IJ)=0 
END 

Figure  1.  PUTZ:  An  illustration  of  using  a  KEY  routine. 

PUTZ  is  a  general  routine  for  setting  to  zero  the  function  defined  on 
grid  nutober  N.  Notice  that  this  routine  can  be  used  for  any  uniform-grid 
function,  and  in  any  program  which  uses  GRIDPACK;  in  fact,  it  is  enough 
that  the  program  includes  KEYS.  Routines  like  PUTZ,  and  far  more 
complicated  ones,  can  thus  be  written  once  for  all;  having  been  written 
by  one  GRIDPACK  user,  all  others  can  benefit  from  it.  Notice  also  the 

• 

full  efficiency  of  the  central  DO  loop,  and  the  ease  of  writing:  Q(IJ) 

N 

stands  for  Uj  j.  Generally,  Q( JR( IR+i  )+j )  would  stand  for  any 
N 

u..  ,  with  expressions  like  JR( IR+i )  ,  for  all  i  needed  in  a  central  loop, 

*  J 

being  evaluated  before  the  loop.  If  the  central  loops  are  on  i  ,  the  grid 
can  be  transposed  (see  Sec.  4.3). 
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Figure  2.  The  structure  of  a  vertical  uniform  grid  and  a  function  on  it 


The  grid  has  two  sets  (strings  of  consecutive  columns):  (1,2, 3, 4)  and 
(7,8,9).  At  gridpoint  (1,0)  the  figure  shows  the  value  of  'a  function 
Ujj  =  where  v.j  =  I  is  the  column  number,  the  digit  V2  is 

the  vertical-string  ordinal  number  within  the  column,  and  is  the 
gridpoint  ordinal  number  within  the  string  (not  its  row  number  J). 


